﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Imports MySql.Data.MySqlClient
Public Class CompLeyendasFiscFact
    Public Shared Function Build(ByVal dr As MySqlDataReader) As CompLeyendasFiscBE
        Dim tmpCompLeyendasFisc As CompLeyendasFiscBE = New CompLeyendasFiscBE()
        Try
            With tmpCompLeyendasFisc
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .DispFiscal = convertDTFromDb.ConvertString(dr.Item("DispFiscal"))
                .Norma = convertDTFromDb.ConvertString(dr.Item("Norma"))
                .Leyenda = convertDTFromDb.ConvertString(dr.Item("Leyenda"))
            End With
            Return tmpCompLeyendasFisc
        Catch ex As Exception
            Throw
        Finally
            tmpCompLeyendasFisc = Nothing
        End Try
    End Function

End Class
